Немного исправил и допилил. Теперь не используется промежуточный лог-файл, и заодно парсится файлик со списком комнат. #!/usr/bin/perl -w #Arping addon by Snake #http://snake.khd.ru #2010-10-02 #v0.4 use Shell; use DBI; my @h51; my @h5; print “Scan 10.12.51.0/24n”; for ($i=1; $ido(“UPDATE iptable SET online = 0 WHERE online = 1”); my $j; #Update database foreach (@h5){ my … Continue reading Arp-сканер на perl. Версия 0.4